home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
0800
/
error.inc
< prev
next >
Wrap
Text File
|
1997-04-10
|
5KB
|
113 lines
{
Error routine used by Pascal Winsock apps.
Public Domain 1994 by
Mike Caughran Cedar Island Software
71034.2371@compuserve.com
}
procedure Error(s : String);
begin
Write(S,' error : ');
Case WSAGetLastError of
WSAEINTR : writeln('WSAEINTR');
WSAEBADF : writeln('WSAEINTR');
WSAEFAULT : writeln('WSAEFAULT');
WSAEINVAL : writeln('WSAEINVAL');
WSAEMFILE : writeln('WSAEMFILE');
WSAEWOULDBLOCK : writeln('WSAEWOULDBLOCK');
WSAEINPROGRESS : writeln('WSAEINPROGRESS');
WSAEALREADY : writeln('WSAEALREADY');
WSAENOTSOCK : writeln('WSAENOTSOCK');
WSAEDESTADDRREQ : writeln('WSAEDESTADDRREQ');
WSAEMSGSIZE : writeln('WSAEMSGSIZE');
WSAEPROTOTYPE : writeln('WSAEPROTOTYPE');
WSAENOPROTOOPT : writeln('WSAENOPROTOOPT');
WSAEPROTONOSUPPORT : writeln('WSAEPROTONOSUPPORT');
WSAESOCKTNOSUPPORT : writeln('WSAESOCKTNOSUPPORT');
WSAEOPNOTSUPP : writeln('WSAEOPNOTSUPP');
WSAEPFNOSUPPORT : writeln('WSAEPFNOSUPPORT');
WSAEAFNOSUPPORT : writeln('WSAEAFNOSUPPORT');
WSAEADDRINUSE : writeln('WSAEADDRINUSE');
WSAEADDRNOTAVAIL : writeln('WSAEADDRNOTAVAIL');
WSAENETDOWN : writeln('WSAENETDOWN');
WSAENETUNREACH : writeln('WSAENETUNREACH');
WSAENETRESET : writeln('WSAENETRESET');
WSAECONNABORTED : writeln('WSAECONNABORTED');
WSAECONNRESET : writeln('WSAECONNRESET');
WSAENOBUFS : writeln('WSAENOBUFS');
WSAEISCONN : writeln('WSAEISCONN');
WSAENOTCONN : writeln('WSAENOTCONN');
WSAESHUTDOWN : writeln('WSAESHUTDOWN');
WSAETOOMANYREFS : writeln('WSAETOOMANYREFS');
WSAETIMEDOUT : writeln('WSAETIMEDOUT');
WSAECONNREFUSED : writeln('WSAECONNREFUSED');
WSAELOOP : writeln('WSAELOOP');
WSAENAMETOOLONG : writeln('WSAENAMETOOLONG');
WSAEHOSTDOWN : writeln('WSAEHOSTDOWN');
WSAEHOSTUNREACH : writeln('WSAEHOSTUNREACH');
WSAENOTEMPTY : writeln('WSAENOTEMPTY');
WSAEPROCLIM : writeln('WSAEPROCLIM');
WSAEUSERS : writeln('WSAEUSERS');
WSAEDQUOT : writeln('WSAEDQUOT');
WSAESTALE : writeln('WSAESTALE');
WSAEREMOTE : writeln('WSAEREMOTE');
WSASYSNOTREADY : writeln('WSASYSNOTREADY');
WSAVERNOTSUPPORTED : writeln('WSAVERNOTSUPPORTED');
WSANOTINITIALISED : writeln('WSANOTINITIALISED');
WSAHOST_NOT_FOUND : writeln('WSAHOST_NOT_FOUND');
HOST_NOT_FOUND : writeln('HOST_NOT_FOUND');
WSATRY_AGAIN : writeln('WSATRY_AGAIN');
TRY_AGAIN : writeln('TRY_AGAIN');
WSANO_RECOVERY : writeln('WSANO_RECOVERY');
NO_RECOVERY : writeln('NO_RECOVERY');
WSANO_DATA : writeln('WSANO_DATA');
NO_DATA : writeln('NO_DATA');
WSANO_ADDRESS : writeln('WSANO_ADDRESS');
NO_ADDRESS : writeln('NO_ADDRESS');
EWOULDBLOCK : writeln('EWOULDBLOCK');
EINPROGRESS : writeln('EINPROGRESS');
EALREADY : writeln('EALREADY');
ENOTSOCK : writeln('ENOTSOCK');
EDESTADDRREQ : writeln('EDESTADDRREQ');
EMSGSIZE : writeln('EMSGSIZE');
EPROTOTYPE : writeln('EPROTOTYPE');
ENOPROTOOPT : writeln('ENOPROTOOPT');
EPROTONOSUPPORT : writeln('EPROTONOSUPPORT');
ESOCKTNOSUPPORT : writeln('ESOCKTNOSUPPORT');
EOPNOTSUPP : writeln('EOPNOTSUPP');
EPFNOSUPPORT : writeln('EPFNOSUPPORT');
EAFNOSUPPORT : writeln('EAFNOSUPPORT');
EADDRINUSE : writeln('EADDRINUSE');
EADDRNOTAVAIL : writeln('EADDRNOTAVAIL');
ENETDOWN : writeln('ENETDOWN');
ENETUNREACH : writeln('ENETUNREACH');
ENETRESET : writeln('ENETRESET');
ECONNABORTED : writeln('ECONNABORTED');
ECONNRESET : writeln('ECONNRESET');
ENOBUFS : writeln('ENOBUFS');
EISCONN : writeln('EISCONN');
ENOTCONN : writeln('ENOTCONN');
ESHUTDOWN : writeln('ESHUTDOWN');
ETOOMANYREFS : writeln('ETOOMANYREFS');
ETIMEDOUT : writeln('ETIMEDOUT');
ECONNREFUSED : writeln('ECONNREFUSED');
ELOOP : writeln('ELOOP');
ENAMETOOLONG : writeln('ENAMETOOLONG');
EHOSTDOWN : writeln('EHOSTDOWN');
EHOSTUNREACH : writeln('EHOSTUNREACH');
ENOTEMPTY : writeln('ENOTEMPTY');
EPROCLIM : writeln('EPROCLIM');
EUSERS : writeln('EUSERS');
EDQUOT : writeln('EDQUOT');
ESTALE : writeln('ESTALE');
EREMOTE : writeln('EREMOTE');
end;
end;
procedure Abort(S : String);
begin
Error(S);
Writeln('Program halted.');
CleanUp;
Halt(255);
end;